home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / pbwiz17.zip / VESAINFO.BAS < prev    next >
BASIC Source File  |  1993-06-05  |  2KB  |  58 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         PBWIZ  Copyright (c) 1991-1993  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      PowerBASIC Wizard's Library                     |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    $DIM ARRAY
  10.  
  11.    DECLARE FUNCTION VesaChrHeight% ()
  12.    DECLARE FUNCTION VesaChrWidth% ()
  13.    DECLARE FUNCTION VesaColors& ()
  14.    DECLARE FUNCTION VesaFindFirst% ()
  15.    DECLARE FUNCTION VesaFindNext% ()
  16.    DECLARE FUNCTION VesaIsText% ()
  17.    DECLARE FUNCTION VesaIsMono% ()
  18.    DECLARE FUNCTION VesaScrHeight% ()
  19.    DECLARE FUNCTION VesaScrWidth% ()
  20.    DECLARE SUB VesaVersion (INTEGER, INTEGER)
  21.  
  22.    $LINK "pbwiz.pbl"
  23.  
  24.    DEFINT A-Z
  25.  
  26.    VesaVersion MajorV, MinorV
  27.    IF MajorV = 0 AND MinorV = 0 THEN
  28.       PRINT "Sorry, but you do not have VESA support."
  29.       END
  30.    END IF
  31.  
  32.    VMode = VesaFindFirst
  33.    DO UNTIL VMode = -1
  34.       CLS
  35.       PRINT "VESAINFO  Copyright (c) 1993  Thomas G. Hanlin III"
  36.       PRINT "Demo program for PBWiz shows available VESA modes"
  37.       PRINT
  38.       PRINT "VESA Mode : &H"; HEX$(VMode)
  39.       PRINT "Mode Type : ";
  40.       IF VesaIsText THEN PRINT "Text "; ELSE PRINT "Graphics ";
  41.       IF VesaIsMono THEN PRINT "(mono)" ELSE PRINT "(color)"
  42.       PRINT "Resolution:"; VesaScrWidth; "x"; VesaScrHeight;
  43.       IF VesaIsText THEN PRINT "chars" ELSE PRINT "pixels"
  44.       PRINT "Char Size :"; VesaChrWidth; "x"; VesaChrHeight
  45.       PRINT "Colors    :"; VesaColors&
  46.       PRINT
  47.       PRINT
  48.       PRINT
  49.       PRINT "-- press a key to view next available mode --"
  50.       VMode = VesaFindNext
  51.       DO
  52.       LOOP WHILE LEN(INKEY$)
  53.       DO
  54.          ky$ = INKEY$
  55.       LOOP UNTIL LEN(ky$)
  56.       IF ky$ = CHR$(27) OR ky$ = CHR$(3) THEN EXIT DO
  57.    LOOP
  58.